﻿Public Class ExpensesBUS
    Private expensesdao As New ExpensesDAO()
    Public Function Expenses_Exists(ByVal ImportItemID As Integer) As Boolean
        Return expensesdao.Expenses_Exists(ImportItemID)
    End Function

    Public Function Expenses_ImportItems_Delete(ByVal ImportItemID As Integer) As Boolean
        Return expensesdao.Expenses_ImportItems_Delete(ImportItemID)
    End Function

    Public Function Expenses_Insert(ByVal ImportItemID As Integer, _
                                    ByVal Description As String, _
                                    ByVal Price As Double, _
                                    ByVal PricebyText As String, _
                                    ByVal RateOfExchange As Integer, _
                                    ByVal ExpensesDate As Date, _
                                    ByVal ExpensesBy As Integer, _
                                    ByVal CreatedBy As String) As Boolean
        Return expensesdao.Expenses_Insert(ImportItemID, Description, Price, PricebyText, RateOfExchange, ExpensesDate, ExpensesBy, CreatedBy)
    End Function

    Public Function Expenses_List() As DataSet
        Return expensesdao.Expenses_List()
    End Function

    Public Function Expenses_Delete(ByVal ExpensesID As Integer) As Boolean
        Return expensesdao.Expenses_Delete(ExpensesID)
    End Function

End Class
